home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs47.d81
/
64alv2b.sfx
/
81 io switch
(
.txt
)
next >
Wrap
Commodore BASIC
|
1990-02-12
|
606b
|
18 lines
1 REM:PROGRAM BY JACK VANDER WHITE BASEDON A ROUTINE BY M.GARMSZEGHY PUBLISHED
2 REM:IN TRANSACTOR MAGAZINE 12/88.
3 PRINTCHR$(147):IF PEEK(231)=79 THEN POKE 230,21:POKE 231,60
5 A$="---------------------------------------"
10 PRINT:PRINT A$
20 PRINT"THIS DISABLES OR ENABLES THE IO RESET"
30 PRINT"ON A PARTITIONED 1581. DO NOT USE"
40 PRINT"THIS ON ANY OTHER DISK DRIVE."
50 PRINT A$:INPUT"DEVICE # OF 1581";DV
60 PRINT"WHAT DO YOU WANT TO DO ?"
70 PRINT" 1[146] DISABLE RESET"
80 PRINT" 2[146] ENABLE RESET":INPUT R$
90 ON VAL(R$)GOTO 100,200
100 OPEN15,DV,15:PRINT#15,"M-W";CHR$(152);CHR$(1);CHR$(2);CHR$(123);CHR$(128)
110 CLOSE 15:NEW
200 OPEN15,DV,15:PRINT#15,"U:";
210 CLOSE 15:NEW